#delimit;

/* This is the replication file for "Childhood Socialization and Political Attitudes: Evidence from a Natural Experiment,"
	Andrew Healy and Neil Malhotra, 2013, Journal of Politics */
	
use psp_replication_file, clear;

/* The next set of commands runs the regressions that appear in Table 1 */

/***** TABLE 1 *****/
/* Column 1 */
ivreg womens_rights73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg womens_rights73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg womens_rights73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg womens_rights73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
reg womens_rights73 closest num_sib if female==0, cluster(PSU);
reg womens_rights73 closest num_sib if female==1, cluster(PSU);

/* Column 4 */
reg womens_rights73 closest numsib* if female==0, cluster(PSU);
reg womens_rights73 closest numsib* if female==1, cluster(PSU);

/* Column 5 */
ivreg womens_rights82 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg womens_rights82 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 6 */
ivreg womens_rights82 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg womens_rights82 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 7 */
reg womens_rights82 closest num_sib if female==0, cluster(PSU);
reg womens_rights82 closest num_sib if female==1, cluster(PSU);

/* Column 8 */
reg womens_rights82 closest numsib* if female==0, cluster(PSU);
reg womens_rights82 closest numsib* if female==1, cluster(PSU);

/* Column 9 */
ivreg womens_rights97 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg womens_rights97 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 10 */
ivreg womens_rights97 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg womens_rights97 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 11 */
reg womens_rights97 closest num_sib if female==0, cluster(PSU);
reg womens_rights97 closest num_sib if female==1, cluster(PSU);

/* Column 12 */
reg womens_rights97 closest numsib* if female==0, cluster(PSU);
reg womens_rights97 closest numsib* if female==1, cluster(PSU);

/* Column 13 */
ivreg raise_kid97 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg raise_kid97 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 14 */
ivreg raise_kid97 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg raise_kid97 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 15 */
reg raise_kid97 closest num_sib if female==0, cluster(PSU);
reg raise_kid97 closest num_sib if female==1, cluster(PSU);

/* Column 16 */
reg raise_kid97 closest numsib* if female==0, cluster(PSU);
reg raise_kid97 closest numsib* if female==1, cluster(PSU);



/***** TABLE 2 *****/
/* Column 1 */
ivreg party_id65 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg party_id65 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg party_id65 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg party_id65 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
reg party_id65 closest num_sib if female==0, cluster(PSU);
reg party_id65 closest num_sib if female==1, cluster(PSU);

/* Column 4 */
reg party_id65 closest numsib* if female==0, cluster(PSU);
reg party_id65 closest numsib* if female==1, cluster(PSU);

/* Column 5 */
ivreg party_id73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg party_id73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 6 */
ivreg party_id73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg party_id73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 7 */
reg party_id73 closest num_sib if female==0, cluster(PSU);
reg party_id73 closest num_sib if female==1, cluster(PSU);

/* Column 8 */
reg party_id73 closest numsib* if female==0, cluster(PSU);
reg party_id73 closest numsib* if female==1, cluster(PSU);

/* Column 9 */
ivreg party_id97 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg party_id97 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 10 */
ivreg party_id97 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg party_id97 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 11 */
reg party_id97 closest num_sib if female==0, cluster(PSU);
reg party_id97 closest num_sib if female==1, cluster(PSU);

/* Column 12 */
reg party_id97 closest numsib* if female==0, cluster(PSU);
reg party_id97 closest numsib* if female==1, cluster(PSU);


/***** TABLE S1 *****/
/* Column 1 */
use psp_parent_regressions, clear;
reg parent_ed_father closest if female==0, cluster(PSU); 
reg parent_ed_father closest if female==1, cluster(PSU);

/* Column 2 */
reg parent_ed_mother closest if female==0, cluster(PSU);
reg parent_ed_mother closest if female==1, cluster(PSU);

/* Column 3 */
reg parent_first_gen closest if female==0, cluster(PSU);
reg parent_first_gen closest if female==1, cluster(PSU);

/* Column 4 */
reg parent_white closest if female==0, cluster(PSU);
reg parent_white closest if female==1, cluster(PSU);

/* Column 5 */
reg parent_fam_inc closest if female==0, cluster(PSU);
reg parent_fam_inc closest if female==1, cluster(PSU);

/* Column 6 */
use psp_replication_file, clear;
reg father_college closest if female==0, cluster(PSU);
reg father_college closest if female==1, cluster(PSU);


/***** TABLE S3 *****/
/* Column 1 */
reg share_sis closest if female==0, cluster(PSU); 
reg share_sis closest if female==1, cluster(PSU); 

/* Column 2 */
reg share_sis closest num_sib if female==0, cluster(PSU); 
reg share_sis closest num_sib if female==1, cluster(PSU); 

/* Column 3 */
reg share_sis closest numsib_* if female==0, cluster(PSU); 
reg share_sis closest numsib_* if female==1, cluster(PSU); 


/***** TABLE S5 *****/
/* Column 1 */
ivreg othmen_womens_rights73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg othmen_womens_rights73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg othmen_womens_rights73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg othmen_womens_rights73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
reg othmen_womens_rights73 closest num_sib if female==0, cluster(PSU);
reg othmen_womens_rights73 closest num_sib if female==1, cluster(PSU);

/* Column 4 */
reg othmen_womens_rights73 closest numsib* if female==0, cluster(PSU);
reg othmen_womens_rights73 closest numsib* if female==1, cluster(PSU);

/* Column 5 */
ivreg past_womens_rights82 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg past_womens_rights82 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 6 */
ivreg past_womens_rights82 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg past_womens_rights82 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 7 */
reg past_womens_rights82 closest num_sib if female==0, cluster(PSU);
reg past_womens_rights82 closest num_sib if female==1, cluster(PSU);

/* Column 8 */
reg past_womens_rights82 closest numsib* if female==0, cluster(PSU);
reg past_womens_rights82 closest numsib* if female==1, cluster(PSU);


/***** TABLE S6 *****/
/* Column 1 */
ivreg party_id82 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg party_id82 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg party_id82 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg party_id82 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
reg party_id82 closest num_sib if female==0, cluster(PSU);
reg party_id82 closest num_sib if female==1, cluster(PSU);

/* Column 4 */
reg party_id82 closest numsib* if female==0, cluster(PSU);
reg party_id82 closest numsib* if female==1, cluster(PSU);


/***** TABLE S7 *****/
/* Column 1 */
ivreg womens_rights73 (share_sis=closest) parent_party num_sib age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*ivreg womens_rights73 (share_sis=closest) parent_party num_sib age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 2 */
ivreg womens_rights73 (share_sis=closest) parent_party numsib_* age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*ivreg womens_rights73 (share_sis=closest) parent_party numsib_* age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 3 */
reg womens_rights73 closest parent_party num_sib age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*reg womens_rights73 closest parent_party num_sib age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 4 */
reg womens_rights73 closest parent_party numsib_* age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*reg womens_rights73 closest parent_party numsib_* age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 5 */
ivreg party_id65 (share_sis=closest) parent_party num_sib age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*ivreg party_id65 (share_sis=closest) parent_party num_sib age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 6 */
ivreg party_id65 (share_sis=closest) parent_party numsib_* age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*ivreg party_id65 (share_sis=closest) parent_party numsib_* age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 7 */
reg party_id65 closest parent_party num_sib age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*reg party_id65 closest parent_party num_sib age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);

/* Column 8 */
reg party_id65 closest parent_party numsib_* age_gap nonwhite father_college if female==0&share_sis<=1, cluster(PSU);
*reg party_id65 closest parent_party numsib_* age_gap nonwhite father_college if female==1&share_sis<=1, cluster(PSU);


/***** TABLE S9 *****/
/* Column 1 */
ivreg govt_provide_jobs73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg govt_provide_jobs73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg govt_provide_jobs73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg govt_provide_jobs73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
ivreg protect_accused73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg protect_accused73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 4 */
ivreg protect_accused73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg protect_accused73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 5 */
ivreg legalize_mj73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg legalize_mj73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 6 */
ivreg legalize_mj73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg legalize_mj73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 7 */
ivreg minority_rights_view73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg minority_rights_view73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 8 */
ivreg minority_rights_view73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg minority_rights_view73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 9 */
ivreg busing_view73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg busing_view73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 10 */
ivreg busing_view73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg busing_view73 (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 11 */
replace index73=(womens_rights73+govt_provide_jobs73+protect_accused73+legalize_mj73+minority_rights_view73+busing_view73)/6;
ivreg index73 (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg index73 (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 12 */
ivreg index73 (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg index73 (share_sis=closest) numsib_* if female==1, cluster(PSU);


/***** TABLE S11 *****/
/* Column 1 */
replace spouse_more=.5 if spouse_chore==7;
ivreg spouse_more (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg spouse_more (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 2 */
ivreg spouse_more (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg spouse_more (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 3 */
reg spouse_more closest num_sib if female==0, cluster(PSU);
reg spouse_more closest num_sib if female==1, cluster(PSU);

/* Column 4 */
reg spouse_more closest numsib_* if female==0, cluster(PSU);
reg spouse_more closest numsib_* if female==1, cluster(PSU);

/* Column 5 */
replace spouse_more=0 if spouse_chore==7;
ivreg spouse_more (share_sis=closest) num_sib if female==0, cluster(PSU);
ivreg spouse_more (share_sis=closest) num_sib if female==1, cluster(PSU);

/* Column 6 */
ivreg spouse_more (share_sis=closest) numsib_* if female==0, cluster(PSU);
ivreg spouse_more (share_sis=closest) numsib_* if female==1, cluster(PSU);

/* Column 7 */
reg spouse_more closest num_sib if female==0, cluster(PSU);
reg spouse_more closest num_sib if female==1, cluster(PSU);

/* Column 8 */
reg spouse_more closest numsib_* if female==0, cluster(PSU);
reg spouse_more closest numsib_* if female==1, cluster(PSU);
